Into That Dark Night/Into That Dark Night.iso/pc/YadVashem/inmeas.dxr/Internal_71_movie script.ls

Text File | 2001-06-12 | 789 b | 35 lines

on prepareMovie
  DmFadePackReg("64464")
  DmFadePackReg("40733")
  initPresentation()
  repeat with i = 50 to 54
    set the visible of sprite i to 1
  end repeat
  repeat with i = 100 to 110
    set the visible of sprite i to 0
    set the visible of sprite 112 to 0
    set the visible of sprite 113 to 0
  end repeat
  updateStage()
end

on startMovie
  global floatMenu, forSplit, Zed
  set forSplit to 0
  Zed()
end

on Zed
  set the windowType of window "Z" to 2
  set the titleVisible of window "Z" to 0
  set the rect of window "Z" to the drawRect of window "Z" + rect(the stageLeft + 619, the stageTop + 458, the stageLeft + 619, the stageTop + 458)
  open(window "Z")
end

on stopMovie
  global floatMenu
  if objectp(floatMenu) then
    forget(window "floatMenu")
  end if
end